module diffeq_rk853_constants use iso_fortran_env implicit none real(real64), parameter :: a21 = 5.26001519587677318785587544488d-2 real(real64), parameter :: a31 = 1.97250569845378994544595329183d-2 real(real64), parameter :: a32 = 5.91751709536136983633785987549d-2 real(real64), parameter :: a41 = 2.95875854768068491816892993775d-2 real(real64), parameter :: a43 = 8.87627564304205475450678981324d-2 real(real64), parameter :: a51 = 2.41365134159266685502369798665d-1 real(real64), parameter :: a53 = -8.84549479328286085344864962717d-1 real(real64), parameter :: a54 = 9.24834003261792003115737966543d-1 real(real64), parameter :: a61 = 3.7037037037037037037037037037d-2 real(real64), parameter :: a64 = 1.70828608729473871279604482173d-1 real(real64), parameter :: a65 = 1.25467687566822425016691814123d-1 real(real64), parameter :: a71 = 3.7109375d-2 real(real64), parameter :: a74 = 1.70252211019544039314978060272d-1 real(real64), parameter :: a75 = 6.02165389804559606850219397283d-2 real(real64), parameter :: a76 = -1.7578125d-2 real(real64), parameter :: a81 = 3.70920001185047927108779319836d-2 real(real64), parameter :: a84 = 1.70383925712239993810214054705d-1 real(real64), parameter :: a85 = 1.07262030446373284651809199168d-1 real(real64), parameter :: a86 = -1.53194377486244017527936158236d-2 real(real64), parameter :: a87 = 8.27378916381402288758473766002d-3 real(real64), parameter :: a91 = 6.24110958716075717114429577812d-1 real(real64), parameter :: a94 = -3.36089262944694129406857109825d0 real(real64), parameter :: a95 = -8.68219346841726006818189891453d-1 real(real64), parameter :: a96 = 2.75920996994467083049415600797d1 real(real64), parameter :: a97 = 2.01540675504778934086186788979d1 real(real64), parameter :: a98 = -4.34898841810699588477366255144d1 real(real64), parameter :: a101 = 4.77662536438264365890433908527d-1 real(real64), parameter :: a104 = -2.48811461997166764192642586468d0 real(real64), parameter :: a105 = -5.90290826836842996371446475743d-1 real(real64), parameter :: a106 = 2.12300514481811942347288949897d1 real(real64), parameter :: a107 = 1.52792336328824235832596922938d1 real(real64), parameter :: a108 = -3.32882109689848629194453265587d1 real(real64), parameter :: a109 = -2.03312017085086261358222928593d-2 real(real64), parameter :: a111 = -9.3714243008598732571704021658d-1 real(real64), parameter :: a114 = 5.18637242884406370830023853209d0 real(real64), parameter :: a115 = 1.09143734899672957818500254654d0 real(real64), parameter :: a116 = -8.14978701074692612513997267357d0 real(real64), parameter :: a117 = -1.85200656599969598641566180701d1 real(real64), parameter :: a118 = 2.27394870993505042818970056734d1 real(real64), parameter :: a119 = 2.49360555267965238987089396762d0 real(real64), parameter :: a1110 = -3.0467644718982195003823669022d0 real(real64), parameter :: a121 = 2.27331014751653820792359768449d0 real(real64), parameter :: a124 = -1.05344954667372501984066689879d1 real(real64), parameter :: a125 = -2.00087205822486249909675718444d0 real(real64), parameter :: a126 = -1.79589318631187989172765950534d1 real(real64), parameter :: a127 = 2.79488845294199600508499808837d1 real(real64), parameter :: a128 = -2.85899827713502369474065508674d0 real(real64), parameter :: a129 = -8.87285693353062954433549289258d0 real(real64), parameter :: a1210 = 1.23605671757943030647266201528d1 real(real64), parameter :: a1211 = 6.43392746015763530355970484046d-1 real(real64), parameter :: a141 = 5.61675022830479523392909219681d-2 real(real64), parameter :: a147 = 2.53500210216624811088794765333d-1 real(real64), parameter :: a148 = -2.46239037470802489917441475441d-1 real(real64), parameter :: a149 = -1.24191423263816360469010140626d-1 real(real64), parameter :: a1410 = 1.5329179827876569731206322685d-1 real(real64), parameter :: a1411 = 8.20105229563468988491666602057d-3 real(real64), parameter :: a1412 = 7.56789766054569976138603589584d-3 real(real64), parameter :: a1413 = -8.298d-3 real(real64), parameter :: a151 = 3.18346481635021405060768473261d-2 real(real64), parameter :: a156 = 2.83009096723667755288322961402d-2 real(real64), parameter :: a157 = 5.35419883074385676223797384372d-2 real(real64), parameter :: a158 = -5.49237485713909884646569340306d-2 real(real64), parameter :: a1511 = -1.08347328697249322858509316994d-4 real(real64), parameter :: a1512 = 3.82571090835658412954920192323d-4 real(real64), parameter :: a1513 = -3.40465008687404560802977114492d-4 real(real64), parameter :: a1514 = 1.41312443674632500278074618366d-1 real(real64), parameter :: a161 = -4.28896301583791923408573538692d-1 real(real64), parameter :: a166 = -4.69762141536116384314449447206d0 real(real64), parameter :: a167 = 7.68342119606259904184240953878d0 real(real64), parameter :: a168 = 4.06898981839711007970213554331d0 real(real64), parameter :: a169 = 3.56727187455281109270669543021d-1 real(real64), parameter :: a1613 = -1.39902416515901462129418009734d-3 real(real64), parameter :: a1614 = 2.9475147891527723389556272149d0 real(real64), parameter :: a1615 = -9.15095847217987001081870187138d0 real(real64), parameter :: b1 = 5.42937341165687622380535766363d-2 real(real64), parameter :: b6 = 4.45031289275240888144113950566d0 real(real64), parameter :: b7 = 1.89151789931450038304281599044d0 real(real64), parameter :: b8 = -5.8012039600105847814672114227d0 real(real64), parameter :: b9 = 3.1116436695781989440891606237d-1 real(real64), parameter :: b10 = -1.52160949662516078556178806805d-1 real(real64), parameter :: b11 = 2.01365400804030348374776537501d-1 real(real64), parameter :: b12 = 4.47106157277725905176885569043d-2 real(real64), parameter :: c2 = 0.526001519587677318785587544488d-1 real(real64), parameter :: c3 = 0.789002279381515978178381316732d-1 real(real64), parameter :: c4 = 0.118350341907227396726757197510d0 real(real64), parameter :: c5 = 0.281649658092772603273242802490d0 real(real64), parameter :: c6 = 0.333333333333333333333333333333d0 real(real64), parameter :: c7 = 0.25d0 real(real64), parameter :: c8 = 0.307692307692307692307692307692d0 real(real64), parameter :: c9 = 0.651282051282051282051282051282d0 real(real64), parameter :: c10 = 0.6d0 real(real64), parameter :: c11 = 0.857142857142857142857142857142d0 real(real64), parameter :: c14 = 0.1d0 real(real64), parameter :: c15 = 0.2d0 real(real64), parameter :: c16 = 0.777777777777777777777777777778d0 real(real64), parameter :: bhh1 = 0.244094488188976377952755905512d0 real(real64), parameter :: bhh2 = 0.733846688281611857341361741547d0 real(real64), parameter :: bhh3 = 0.220588235294117647058823529412d-1 real(real64), parameter :: er1 = 0.1312004499419488073250102996d-1 real(real64), parameter :: er6 = -0.1225156446376204440720569753d1 real(real64), parameter :: er7 = -0.4957589496572501915214079952d0 real(real64), parameter :: er8 = 0.1664377182454986536961530415d1 real(real64), parameter :: er9 = -0.3503288487499736816886487290d0 real(real64), parameter :: er10 = 0.3341791187130174790297318841d0 real(real64), parameter :: er11 = 0.8192320648511571246570742613d-1 real(real64), parameter :: er12 = -0.2235530786388629525884427845d-1 real(real64), parameter :: d41 = -0.84289382761090128651353491142d1 real(real64), parameter :: d46 = 0.56671495351937776962531783590d0 real(real64), parameter :: d47 = -0.30689499459498916912797304727d1 real(real64), parameter :: d48 = 0.23846676565120698287728149680d1 real(real64), parameter :: d49 = 0.21170345824450282767155149946d1 real(real64), parameter :: d410 = -0.87139158377797299206789907490d0 real(real64), parameter :: d411 = 0.22404374302607882758541771650d1 real(real64), parameter :: d412 = 0.63157877876946881815570249290d0 real(real64), parameter :: d413 = -0.88990336451333310820698117400d-1 real(real64), parameter :: d414 = 0.18148505520854727256656404962d2 real(real64), parameter :: d415 = -0.91946323924783554000451984436d1 real(real64), parameter :: d416 = -0.44360363875948939664310572000d1 real(real64), parameter :: d51 = 0.10427508642579134603413151009d2 real(real64), parameter :: d56 = 0.24228349177525818288430175319d3 real(real64), parameter :: d57 = 0.16520045171727028198505394887d3 real(real64), parameter :: d58 = -0.37454675472269020279518312152d3 real(real64), parameter :: d59 = -0.22113666853125306036270938578d2 real(real64), parameter :: d510 = 0.77334326684722638389603898808d1 real(real64), parameter :: d511 = -0.30674084731089398182061213626d2 real(real64), parameter :: d512 = -0.93321305264302278729567221706d1 real(real64), parameter :: d513 = 0.15697238121770843886131091075d2 real(real64), parameter :: d514 = -0.31139403219565177677282850411d2 real(real64), parameter :: d515 = -0.93529243588444783865713862664d1 real(real64), parameter :: d516 = 0.35816841486394083752465898540d2 real(real64), parameter :: d61 = 0.19985053242002433820987653617d2 real(real64), parameter :: d66 = -0.38703730874935176555105901742d3 real(real64), parameter :: d67 = -0.18917813819516756882830838328d3 real(real64), parameter :: d68 = 0.52780815920542364900561016686d3 real(real64), parameter :: d69 = -0.11573902539959630126141871134d2 real(real64), parameter :: d610 = 0.68812326946963000169666922661d1 real(real64), parameter :: d611 = -0.10006050966910838403183860980d1 real(real64), parameter :: d612 = 0.77771377980534432092869265740d0 real(real64), parameter :: d613 = -0.27782057523535084065932004339d1 real(real64), parameter :: d614 = -0.60196695231264120758267380846d2 real(real64), parameter :: d615 = 0.84320405506677161018159903784d2 real(real64), parameter :: d616 = 0.11992291136182789328035130030d2 real(real64), parameter :: d71 = -0.25693933462703749003312586129d2 real(real64), parameter :: d76 = -0.15418974869023643374053993627d3 real(real64), parameter :: d77 = -0.23152937917604549567536039109d3 real(real64), parameter :: d78 = 0.35763911791061412378285349910d3 real(real64), parameter :: d79 = 0.93405324183624310003907691704d2 real(real64), parameter :: d710 = -0.37458323136451633156875139351d2 real(real64), parameter :: d711 = 0.10409964950896230045147246184d3 real(real64), parameter :: d712 = 0.29840293426660503123344363579d2 real(real64), parameter :: d713 = -0.43533456590011143754432175058d2 real(real64), parameter :: d714 = 0.96324553959188282948394950600d2 real(real64), parameter :: d715 = -0.39177261675615439165231486172d2 real(real64), parameter :: d716 = -0.14972683625798562581422125276d3 end module